home *** CD-ROM | disk | FTP | other *** search
- Patches to Turbo Toolbox Software
- *********************************
-
- 13:33:45 2/20/1985
- -------------------
-
- File : ACCESS.BOX
- Location : In the "CloseIndex" procedure
- Description :
- The following code segment in the "CloseIndex" procedure:
-
- if Updated then
- begin
- TaPack(Page,IdxF.KeyL);
- PutRec(IdxF.DataF,PageRef,Page);
- end;
-
- Should be changed to read:
-
- if Updated then
- begin
- TaPack(Page,IdxF.KeyL);
- PutRec(IdxF.DataF,PageRef,Page);
- Updated := False; { This line has been added }
- end;
-
- (The comment was added by this programmer and is NOT required.)
- -----------------------------------------------------------------------------
-